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GETJP1.832;1 (1) 


MODULE LIBSGETJPI ( BTITyE osst Job/Process Information’ 
geen = ! File: LIBGETJP1.832 Edit: S$BL1003 


BEGIN 


. 
RRR ERE RAE AREA AREA AAAAEAAATAAAAAEAARAAEAAAAARAARERAAAAAERAEKAAERAREAAEAEE 


'@ 

ie COPYRIGHT (c) 1978, 1980, 1982, 1984 8 

ie DIGITAL EQUIPMENT CORPORATION, MAYHARD. MASSACHUSETTS. 
ie ALL RIGHTS RESER 


cs 
=O 


4 

; 

ae | 1 

; $ 1 

; 1 * 
; 8 1 * 
; 1 * 
 B ie 
$ ® 
; 1 \ 1! Tats por tunes I$ FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
Ay 13 1 '* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH biceN NSE AND WITH THE * 
; | 646 014 1 !* INCLUSION OF THE ABOVE gtd NOTICE. THIS SOFTWARE OR ANY OTHER * 
a iF 1 ie oa | ae THEREOF og NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
; 18 1 1 i OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
; i ; : is TRANSFERRED. * 
; : * 
; 19 0019 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
; 0 0020 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
: 1 4 1 : :* CORPURATION. , 
’ : * 
; : 89 : 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
; 4 4 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. ® 
i 3 0036 | is 
+ ® 
: . 4 : PITTIITIIII III LITT LLL LLL LLL LLL LLL LLL ELL LLL LLL 
. ' 

3 Oy 9009 | 

; 30 0050 1 !++ 

: 1 003 : FACILITY: General Utility Library 

; § 0033 1 | ABSTRACT: 

; 4 0034 1! 

: 5 Onee 1} LIBSGETJPI obtains a specified item of Job/Process information 

: § ie ; and formats it in an appropriate manner. 

3 36 st \ ENVIRONMENT: User mode - AST reentrant 

; 49 9040 AUTHOR: Steven B. Lionel, CREATION DATE: 11-Jan-1983 

i 48 Q04¢ 1 | MODIFIED BY: 

; 4 0043 1! 

; 44 one 1it- ~001 ~ Original. SBL 11-Jan-1983 

; €§ 045 1/1 - Change format code names to LIBSK_FMT SBL_11-Mar-1983 

; 646 0046 1: 1-00 - Change string length to 512. SBL “11-Rar-1983 

; (47 0047 1 j- 

: 48 0048 1 


fr 


am 
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41858 Declarations 12=868-1 382 93:98:84 CTBRTL™ SR ROIL 18Get Or B82; 57 . (25 
3 ° 8 ] XSBTTL ‘Declarations’ 
FH ¢ 5 : ; PROLOGUE FILE: 
s 4 0 5 1 
; 5 : : REQUIRE "RTLIN:LIBPROLOG'; ' Switches, PSECTS, macros 
5 3$ 1 § 1! 
; 58 4 1 ! LINKAGES: 
; > 128 1! 
; 60 0129 1! NONE 
,. 6) 3 01! 
3 6¢ 131 1 =! TABLE OF CONTENTS: 
3; 6 01 ¢ 1! 
; «664 01 1 
; 65 0134 1 FORWARD ROUTINE 
; & 0135 «(1 LIBSGETJPI; ! Get Job/Process Information 
s 6 0136 1 
; & 0137 1! 
; 0138 1 ! MACROS: 
; +0 0139 1! 
3 71 0140 1! NONE 
: 7 0141 1! 
: 7 bis 1 ! EQUATED SYMBOLS: 
; 7 0143 1! 
$ 75 0144 1! NONE 
3 76 0145 1! 
: 77 0146 1 ! FIELDS: 
3 78 0147 1! 
3 79 0148 1! NONE 
> 0149 1! 
s 81 0150 1 ! OWN STORAGE: 
; 8 0151 1! 
ee | 3136 1! NONE 
; 864 0153 1! 
3 85 0154 1 ! EXTERNALS: 
; 0155 1! 
, Oo 0156 1 
: 88 0157 1 EXTERNAL yt ag 
; 8 0158 1 LIBSS$GETJPI, Int ernal routine 
s 0159 1 LIBSANALYZE_SDESC_R2: LIBSANALYZE_SDESC ROSLINKAGE, Get length and pointer 
; 91 0160 1 tIBSG T_EF ' Allocate event flag number 
we 0161 1 LIBSFREE EF: NOVA i Free event flag number 
; 93 016¢ i LIBSSCOPY_R_DX6: tYeSSCOPY_ R_DX6$LINKAGE; | Copy string by reference. 
; 95 0164 1 EXTERNAL LITERAL 
; | «96 0165 1 LIBS_INVARG, ! Invalid argument 
3; PT 0166 1 LIBS_STRTRU; i String truncated 
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ZSBITL ‘LIBSGETJPI = Get Job/Process Information’ 
GLOBAL ROUT 


o 
o 


OUTINE LIBSGETJPI ( 

M_CODE: REF VECTOR C, WORD] ' Code of desired item 
PROCESS_ID: REF VECTOR C, LONGI i Process identification 
PROCESS-NAME: REF BLOCK (, BYTES, | Process name descriptor 

UT_VALOE: REF VECTOR fF LONG), ! Output numeric value 
OUT_STRING: REF BLOCK [, BYTEJ, ! Output string descriptor 
OUT_LEN: REF VECTOR C, WORD) ! Output string length 


1o4 


i FUNCTIONAL DESCRIPTION: 


LIBSGETJPI provides a simplified interface to the $GETJPI system 
service. It provides accounting, status and identification 
information about a specified process. 


LIBSGETJPI provides the following features in addition to those 
provided by the S$GETJPI system service: 


Instead of a List of item descriptors, which may be 
difficult to construct in high-level (anguages, the single 
item desired is specified as an integer code which is passed 
by reference. Results are written to separate arguments. 


For items which return numeric values, LIBSGETJPI can 
optionally provide a formatted —— interpretation of the 
value. For example, if the process UIC is requested, 
LIBSGETJPI can return the UIC formatted as ‘‘[g,m]"’. 


For string arguments, all string classes supported by the 
Run-Time Library are understood. 


Calls to LIBSGETJPI are eyachroneus. LIBSGETJPI calls 
LIBSGET_EF to allocate a local event flag number for 
synchronization. 


LIBSGETJPI does not provide the ability to obtain more than one 
item of information in a single call. See the description of the 
S$SGETJPI system service for more information. 


CALLING SEQUENCE: 


ret-status.wlc.v = LIBSGETJPI ( 
item-code.rw.r, 
process-id.mlu.rJ, 
process-name.rt.dx], 
* fout=string. } 
out-string.wt.dx 
g-ut SI) 


OBDOOOOS 0000000000000 090909090909 09 08 INI NSI NNN NIOS 


out-Llen.ww.r 


FORMAL PARAMETERS: 


item-code 
A longword integer item identifier code that specifies which item 
of information you are requesting. All valid SGETJPI item codes, 
whose names begin with JPI$_, are accepted. 
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process-id 
A longword speci tying the precess identification of the 
process for which information is to be returned. If not 
specified, process-name is ysed The longword is updated to 
contain the process identif cation actua ly used, which may 
be different than what was originatly specified if 
process-name is specified or if ‘wild card process 
searching’ is used. 


process-name 
A strin pg Me dy the name of the process for which 
information is to be returned. If not specified, process-id 


MIFSWN "OO OONOUS 


is used. If neither process-name or process-id are 
specified, the caller's process is used. See the 
description of the process-id argument for more information. 


out-value 
A longword or quadword into which is placed the numeric 
value of the information requested. If an item only returns 
a string value, this parameter is ignored. 
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! out-string 

: A string into which is placed the string representation of 
: the information requested. If out-string is not specified, 
; and the value returned has only a string representation, the 
: error status LIBS_INVARG is returned. 

! out-Llen 

! A word integer into which is placed the number of significant 
: characters written to out-string, not including blank padding 
or truncated characters. 

i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 


IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
COMPLETION STATUS: 
S$_NORMAL Normal successful completion 
STRTRU String truncated. This is an alternate success status. 
Insufficient event fla 


INSEF s 
“INVSTRDES Invalid string deacriptor 
WRONUMARG Wrong number of argumen 
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ao 


Oooo 


ts 
XXX Any error status from LIBSSCOPY_R_DX | 
_BADPARAM The item code is not recognized as valid. 
mee Any error status from S$GETJPI 
SIDE EFFECTS: 


NONE 


ooo Mme = ww 


18 
-( 


HEN 
RETURN .EF_STATUS; 


'¢ 
Call LIBS$GETJPI to do the work. 


JPI_STATUS = LIBSSGETJPI ( 
ITEM_CODE (OJ, 
RET_STRING, 
RET~NUMBER, 


10 | 
IBSGETJP1 Get Job/Process Information 16-5e -1984 01:41 AX-11 Bliss-32 V4.0-74 p lE 
eth LIBSGETJP] = Get Job/Process Information er eek= 188s 5:98:8s | Neat eae tect tier as2;1 age 43 -¢ 
: 1 1 BEGIN 
: 1g 4 LOCAL 
: 21 4 RET_STRING: VECTOR (512, BYTE), ' Local string for value 
: 18 5 RET-LENGTH: WORD i Length of RET_STRING 
: 21 é RET“NUMBER: VECTOR C2, LONG), i Local quadword for value 
3 0 RET_TYPE ' Returned type code 
: 221 8 LCL“PRCNAM_DSC: BLOCK (8, BYTE), i Local descriptor for PRCNAM 
3 § 89 PRCRAM_DSC_ADR, ! Address of PRCNAM descriptor 
; 90 EVENT FLAG, ! Event flag number 
; 4 31 STR_STATUS, EF_STATUS, JPI_STATUS, COPY_STATUS; ! Return statuses 
; 6 38 BUILTIN 
; 94 NULLPARAMETER; 
3 8 95 
: 9 38 '¢ 
: : 44 Validate argument count. 
; 99 
; 38 0860 SLIBSVALIDATE_ARGCOUNT (4,6); 
: 235 0308 1+ 
3 Ma tt Build static descriptor for PROCESS_NAME, if any. 
: 238 030s : : iF 
: 239 9 06 IF NULLPARAMETER (3) 
§ 40 30 T 
: 241 0308 PRCNAM_DSC_ADR = 0 ! Omitted : 
Phim oo ona : 
> 266 0311 LCL_PRCNAM_DSC CDSC$B_DTYPE] = DSC$K_DTYPE_T; : 
> 265 O31¢ “PRCNAM_DSC CDSC$B-CLASS] = DSC$K-CLASS-S: 
: 266 031 STR-STATUS = LIBSANALYZE SDESC Re (PROCESS-NAME (0,0,0,0); 
> 267 0314 L_PRCNAM_DSC COSCSQ_LENGTHJ, LCL_PRCRAM_DSC CDSC$A_POINTER); 
: 248 0315 IF NOT .STR_STATUS 
: 9 9318 THEN 
: 0 31 RETURN .STR_STATUS; 
: 251 18 PRCNAM_DSC_ADR = LCL_PRCNAM_DSC; : 
3 ; 313 END; : 
; 31 : 
3 4 0321 '¢ ; 
3 i 3 § : Allocate an event flag number to use for the S$GETJPI. : 
; 4 ‘ 
: 8 5 EF_STATUS = LIBSGET_EF (EVENT_FLAG); 
; 9 6 IF"NOT .EF_STATUS 


oo 
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1+ 

Check for errors. 

IF NOT .JPI_STATUS 
RETURN .JPI_STATUS; 


‘+ 
Copy the numeric value, if desired. 


WO OONAUELS AN "CO OONOULS UP 


IF OUT_VALUE (0) NEQA 0 
THEN 


BEGIN 
I shits GTRU LIBSK_FMT_MAXSTRING ! Is it a number? 


ita 


ANIA AA AANA 
SIN NNN NOOO 
NOUS WN OO OONOAU 


BEGIN 
OUT_VALUE (0) = .RET_NUMBER (0); 
IF TRET_TYPE EQL LIBSK_FMT_DATE OR 
rHenreratvPe EQL LIBSK-FMT~PRIVILEGE 
np: UTA WALUE C1] = .RET_NUMBER [1]; ! Store second longword 
END; 
1+ 
Store string value if desired. 
IF NOT NULLPARAMETER (5) 
THEN 
BEGIN 
COPY_STATUS = LIBSSCOPY 
OUT STRING 0,0,0 
IF NOT RULLPARAMETER (6 
THEN 
BEGIN 
Store result string Length. 


OUT_LEN [0] = .RET_LENGTH; 
IF [COPY_STATUS EQCU LIBS$_STRTRU 


LIBSANALYZE_SDESC_R2 (OUT_STRING [0,0,0,0); OUT_LEN (0); 


gRzPX (-RET_LENGTH, RET_STRING, 


71 RET _LENGTH, 
RET"TYPE, 
~EVENT_FLAG 
PROCESS ID (0) 
-PRCNAM_DSC_ADR) ; 

'¢ 
} Free the event flag. 
LIBSFREE_EF (EVENT_FLAG); 
4 
4 
4 
4 
4 
4 
) 
4 
4 
4 
4 
4 
4 
4 
4 
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END; 
RETURN .COPY_STATUS; 
ELSE IF .RET_TYPE LEQU LIBSK_FMT_MAXSTRING 


: RETURN LIBS_INVARG; ! Only string value, but nothing to return it in 
3 RETURN SSS$_NORMAL; ! Success 
; END; ! End of routine LIBSGETUPI 
TITLE yb, ail Get Job/Process Information 
-IDENT \1-003\ 
-EXTRN LIBSSGETJPI, LIBSANALYZE_SDESC_R2 
-EXTRN LIBSGET_EF, LIBSFREE_EF 
-EXTRN LIBSSCOPY_R_DX6 
“EXTRN LIB$_INVARG, LIBS$_STRTRU 
“EXTRN LIB$~WRONUMARG 


-PSECT _LIBSCODE,NOWRT, SHR, PIC,2 
sonar LIBSGETJPI, Save R2,R3,R4,R5,R6,R7 


oS 
oS 


FC 00000 
57 000000006 00 9E 00002 MOV LIBSANALYZE SDESC_R2, R7 
5E FDE4 CE 3 0009 MOV -540(SP), SP 
50 6C ys 83 0000 SUBB3 #4, (AP). DIFF 
02 0 91 0001 CMPB sé, #2 
08 18 9001 BLEQU 1 
50 000000006 8F 00 00017 MOVL § #LIBS_WRONUMARG, RO 
04 OOOiE RET 
03 6C 91 OOOTF 1$ CMPBs«CAP), #3 
05 1F 00022 BLSSU 
0c AC D5 00024 TSTL 12¢AP) 
04 12 00027 BNEO 
53 D4 00029 2$ CLRL § PRCNAM_DSC_ADR 
1B 11 00028 BRB 
OE A 010E BF 80 0020 3$ MOVW #270, LCL_PRCNAM_DSC+2 
5 OC aC DO 000 MOVL § PROCESS_NAM 
16 000 JSB LIBSANACYZE SDESC_R2 
OC AE 1 BO 00039 MOVW R1, LCL_PRCRAM_DSC 
10 AE : D0 0003p MOVL 2, LCL-PRCNAM~DSC+4 
OF 5 : 41 BLBC STR_STATUS, 5$ 
oc AE SE 00044 MOVAB LCL7PRCNAM.DSC, PRCNAM_DSC_ADR 
AF 9F 00048 4$: PUSHAB EVERT FLA 
000000006 00 : Fe 4 CALLS #1, LIBSGET cf 
1 0 FS ; 5$: BLBS EF STATUS, & 
53 DD 000 6 6$: PUSHL  PRCNAM_DSC_ADR 
08 AC DD PUSHL PROCESS ID 
10 AE BD B PUSHL EVENT_FCAG 
OC AE OF E PUSHAB RET_TYPE 
146 AE OF SHAB RET"LENGTH 
8 AE OF PUSHAB RET"NUMBER 
4 AE OF 7 PUSHAB RET~STRING 
43 4 BC c A MOVZWL ai TER CODE, -(SP) 
000000006 0 FB O006E CALLS #8, LIBSSGETJPI 


SS, 
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52 50 pO 0007 VL —s- RO, _-JPI_STATUS ; 
08 A BF R PUSHAB EVENT FLAG : 
000000006 0 F CALLS #1, LIBSFREE fF ; 
E BLBS JPI_STATUS, 7 : 
0 BO MOVL JPIZSTATUS, RO : 
50 10 A 09 7$: MOVL QUT _VALUE, RO : 
18 1 BEQL ; 
03 6 pi F CMPL RET_TYPE, rh} : 
1 3 BLEQU 9 ; 
63 16 AE OD MOVL §RET_NUMBER, (RO) : 
SE 8 Boon cet BRFTVPE. Ani 
0c GF D1 00090 CMPL RET_TYPE, #2 : 
06 A 13 OM OS Ng $: ROVE RET NUMBERS, 4<ROD : 
, Ee a oa 7 
14 ac 3 OOAC TSTL 20(AP) : 
3B 13 OOOAF BEQL 118 : 
51 1c «AE 9 0081 MOVAS RET_STRING, R1 ; 
2 16 AC 0085 MOVL  OUT“STRING, Re : 
5 04 A 3c 9089 MOVZWL RETTLENGTH, R : 
000000006 06 6 Bp JSB8 LIBSSCOPY_R_DX6 3 
53 g 00C MOVL RO, COPY_STATUS 3 
06 6C 91 000C6 CMPB sé AP), #6 : 
oP HBS REY Rhy, : 
1 3 00¢ BEQL 10 : 
18 BC 04 AE B0 6006 MOVW § RET_LENGTH, @OUT_LEN : 
000000006 8F 53 D1 0000 CMPL COPT_STATUS, #LIB$_STRTRU : 
50 16 he OB boone See OOUT_STRING, RO : 
- i 16 Me JSB-LIBSANALYZESDESC_R2 2 
8 3 00 aoe 108: ROVL COPY_STATUS, RO 2 
03 6 D1 $3 118: CHPL R T_TYPE, 43 3 
50 000000006 gf v0 OOF? MOVL § #LIBS_INVARG, RO F 
4 OOF RET : 
50 01 00 OOF 128:  MOVL #1, RO : 
04 OOOFC RET : 


; Routine Size: 253 bytes, Routine Base: _LIBSCODE + 0000 
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END ! End of module LIBSGETJPI 
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PSECT SUMMARY 
Name Bytes Attributes 
_LIBSCODE 253 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


Library Statistics 


; Susenees ByERG(G soncsece Pages Processing 
: File Total Loaded Percent Mapped Time 

; ~$25580UA28: SYSLIBISTARLET.L32;1 9776 ? 0 581 00:00.7 
: _$255$0UA28:CLIBRIL.OBJIRTLLIB.L32;1 36 6 16 8 00:00.1 
: COMMAND QUALIFIERS 


PLISS/CHECR OEE SELB, INE TEAL .OPTEALEED/HOTRACE/L 1504 [S816 IBGE TIPL/OB 908581 IBGE T IPI MSRC$:LIBGETJPI/UPDATE=(ENH$:LIBGETJPI 


gd 253 ofcnt. + 0 data bytes 
Elapsed Tae: 80; ¢" 
Lines/CPU Min: 491 
Lexemes/CPU-Min: 17396 

{ Used: 102 pages 
Compilation Complete 
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